home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
tex
/
sauter.zip
/
MAKET_MF.BTM
< prev
next >
Wrap
Text File
|
1990-11-19
|
1KB
|
61 lines
@echo off
: 4Dos Batch file--
: Make mf source files.
: Don't adjust "standard" sizes (11.14.17.20.25.30) to nearest power of 1.2
set OUTDIR=`c:\l\mf\sauter\mf`
set SAUTER=`c:\l\mf\sauter`
iff %# LT 2 then
echo "Usage: $0 family_name size [size ...]."
exit
endiff
: Remember the family name (e.g., ``cmr'').
set family = %1
shift
iff not isdir %OUTDIR then
iff exist %OUTDIR then
echo File "%OUTDIR" exists and is not a directory.
echo You must move this file or change the output directory.
quit
else
md %OUTDIR
endiff
endiff
:do_sizes
if "%1" EQ "" goto done
set size = %1
set name_size = %@eval[%size]
set mf_name = %family%%name_size%.mf
echo %family%%name_size >> %SAUTER\l-new
: Make sure it doesn't exist already.
iff exist %OUTDIR\%mf_name then
echo "%mf_name" exists already, so I won't change it.
else
echo `% `%size-point %family. > %OUTDIR\%mf_name
echo `design_size := `%size; >> %OUTDIR\%mf_name
echo `input b-`%family%`;` >> %OUTDIR\%mf_name
endiff
shift
goto do_sizes
: Come back to where we were.
:done
quit